home *** CD-ROM | disk | FTP | other *** search
- .model tiny
- .code ; code segment
-
- org 100h ; com file
-
- print MACRO ; print macro
- mov ah,9h
- int 21h
- endm
-
- exit MACRO ; call to termination ;)
- mov ax,4c00h
- int 21h
- endm
-
- start: ; code segment starts
- jmp real ; jump to the beginning
- code_1 dw 3EB8h ; value to accept the key codes compare
- array dw 5 dup(0) ; code array
- real: ; start
- lea dx,intro ; same as dx,OFFSET intro
- print ; call to the macro
- lea dx,inputline
- print
- mov cx,5
- xor di,di
- loopie: ; loop to get 5 keys from keyboard
- mov ah,01
- int 21h
- mov ah,00
- mov array[di],ax
- inc di
- xor ax,ax
- loop loopie
- mov cx,5
- xor ax,ax
- xor dx,dx
- xor bx,bx
- mov di,4
- check: ; compare key codes
- mov ax,array[di]
- add bx,ax
- dec di
- xor ax,ax
- loop check
- add bx,36h ;<- simple math commands to get the resoult more
- ; complicated ;)
- sub bx,71h ;<-
- add bx,369h ;<-
- sub bx,222h ;<-
- cmp bx,code_1 ; compare the "code_1" with the array
- je ok
- nk: lea dx,lame
- print
- exit
- ok: lea dx,shit
- print
- exit
-
-
-
- intro db 'E x E C U T i O N CRaCKMe (c) 1998 DR.ViRUS',10,13,'"WhAT Do Ya WanT TO cRaCK ToDaY??"',10,13,'$'
- inputLine db '■ EnTeR PaSSWoRD:$'
- lame db 13,10,'■ Password incorrect! Try again ;)',13,10,'$'
- shit db 13,10,'■ Password correct!',10,13,'$'
- end start
-